﻿Imports DTO
Imports System.Data.SqlClient
Public Class KhuVucDAO
    Public Shared Function ThemKhuVuc(KhuVucDTO As KhuVucDTO) As Integer
        Dim kq As Integer
        Dim sql As String = String.Format("insert into KhuVuc (TenKhuVuc, GhiChu, MaTrangThai) values(N'{0}', N'{1}', {2})", KhuVucDTO.TenKhuVuc, KhuVucDTO.GhiChu, KhuVucDTO.MaTrangThai)
        kq = CKetNoi.ExecNonQuery(sql)
        Return kq
    End Function

    Public Shared Function LayDSKhuVucCbx() As DataTable
        Return CKetNoi.GetData("select MaKhuVuc, TenKhuVuc from KhuVuc")
    End Function

    Public Shared Function LayDSKhuVuc() As DataTable
        Dim dt As New DataTable
        Dim sql As String = "select * from KhuVuc"
        dt = CKetNoi.GetData(sql)
        Return dt
    End Function

    Public Shared Function CapNhapKhuVuc(KhuVucDTO As KhuVucDTO) As Integer
        Dim kq As Integer
        Dim listVal As New List(Of SqlParameter)

        listVal.Add(New SqlParameter("@maKV", KhuVucDTO.MaKhuVuc))
        listVal.Add(New SqlParameter("@tenKV", KhuVucDTO.TenKhuVuc))
        listVal.Add(New SqlParameter("@ghiChu", KhuVucDTO.GhiChu))
        listVal.Add(New SqlParameter("@maTT", KhuVucDTO.MaTrangThai))
        kq = CKetNoi.ExecQueryStoreProc("CapNhapKhuVuc", listVal)
        Return kq
    End Function

    Public Shared Function XoaKhuVuc(KhuVucDTO As KhuVucDTO) As Integer
        Dim kq As Integer
        Dim sql As String = String.Format("delete from KhuVuc where MaKhuVuc = '{0}'", KhuVucDTO.MaKhuVuc)
        kq = CKetNoi.ExecNonQuery(sql)
        Return kq
    End Function


End Class
